home *** CD-ROM | disk | FTP | other *** search
/ Electronics Boutique Catalog 1996 Spring / 1996 Electronics Boutique Spring CD-ROM (USA).bin / eb / 1313copy.txt < prev    next >
Encoding:
Text File  |  1996-03-06  |  1.4 KB  |  40 lines
  1. if newtitle = TRUE then
  2. Eval("EraseDisplay(@" ^ title number ^ ")")
  3. title number = "1313"
  4. Company = "Corel"
  5. title = "CorelDraw 6 UpGrade"
  6. Price = 249.99
  7. Demo = false
  8. Button1 = false
  9. Button2 = false
  10. Button3 = false
  11. Button4 = false
  12. system = "Windows CD-ROM"
  13. Title Description = "Offers fully-featured applications for illustration, photo-editing and bitmap creation, business and multimedia presentations, 3D rendering and animation. Also provides increased speed, precision to 0.1 micron, multi-threading, multi-tasking, Wizards and Tutor Notes, support for a Multi Document Interface and a fully-customizable user interface."
  14.  
  15.  
  16. -------------------------------------
  17. dline = ""
  18. counter = 0
  19. repeat while dline <> title number
  20. counter = counter + 1
  21. dline = GetWord(1,   GetLine(titl,counter) )   
  22. test(dline = title number, LineInTitle = counter)
  23. end repeat 
  24.  
  25. starttitle = LineInTitle
  26. num of titles shown = 6
  27. endtitle = starttitle + num of titles shown - 1
  28. titles = ""
  29. title highlight = ""
  30. repeat with counter = starttitle to endtitle
  31. nextline = GetLine(titl,counter)
  32. titles = titles ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return
  33. title highlight = Test(title number = GetWord(1, nextline), title highlight ^ SubStr(nextline, 6, CharCount(nextline)) ^ Return, title highlight ^ Return)
  34. end repeat
  35. dpage = CurrentPageID
  36.  
  37. newtitle = FALSE
  38. end if
  39.  
  40.